(ASET): Use AREF, not ASLOT.

diff --git a/src/ChangeLog b/src/ChangeLog
index b3ffe08f3bafb9367ecb7f5e865de34dcbf20bf5..bb452e6a49615e81ee96de5dff8e5363851798bb 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-10  Richard Stallman  <rms@gnu.org>
+
+       * lisp.h (ASET): Use AREF, not ASLOT.
+
 2008-02-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * lisp.h (ASET): Check bounds.

diff --git a/src/lisp.h b/src/lisp.h
index daa45d3aad8da739a48377ee1bd89db9b3416234..a215abb34eefc5cd8f185ba0af0bbe5366f3ada1 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -594,7 +594,7 @@ extern size_t pure_size;
 #define ASET(ARRAY, IDX, VAL)  \
   (eassert ((IDX) == (IDX)),                           \
    eassert ((IDX) >= 0 && (IDX) < ASIZE (ARRAY)),      \
-   ASLOT ((ARRAY), (IDX)) = (VAL))
+   AREF ((ARRAY), (IDX)) = (VAL))
 
 /* Convenience macros for dealing with Lisp strings.  */